1 IFX>.THEN10 2 POKE53280,.:POKE53281,. 3 PRINT"[147]" 4 PRINT" [215]ELCOME TO [196]UGAN'S [193]RT [196]EPOT..." 5 : 10 IFX=0THENX=1:LOAD"UNPACKER",8,1 20 IFX=1THENX=2:LOAD"BLOAD.O",8,1 30 : 40 BL=828:UNPACK=51456:HGR=51459 50 : 55 NP=5:DIM T$(NP),A$(NP),R$(NP) 57 FORX=1TONP:READT$(X),A$(X),R$(X):NEXT 60 GOSUB 50060: REM TITLE SCREEN 70 FORX=1TONP:GOSUB60000 80 PRINT"[154]" 82 PRINTSPC(19-LEN(T$(X))/2)""T$(X)"[146]" 84 PRINT""SPC(19-LEN(A$(X))/2)""A$(X)"[146]" 90 SYSBL,16384,R$(X) 92 : 94 IFPEEK(198)<>0THENGETA$:POKE198,0:IFA$="Q"ORA$="[209]"THENGOSUB10000 96 POKE249,224:POKE250,204 98 POKE251,0:POKE252,64 99 POKE253,0:POKE254,0:PRINT"[147]";:SYSUNPACK:SYSHGR 100 AG=3.34 110 FORDL=1TO1500:IFPEEK(198)=0THENNEXTDL:GOTO120 112 GETA$:IFA$="Q"ORA$="[209]"THENSYSHGR:GOSUB10000:SYSHGR 120 SYSHGR:PRINT"[147]":POKE198,0:NEXT X 130 GOTO70 140 : 10000 REM A KEY WAS PRESSED 10005 POKE53281,1:POKE53280,5 10010 PRINT"[147][144] [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?" 10020 POKE198,0:WAIT198,1:GETAG$ 10030 IFAG$="Y"ORAG$="[217]"THEN30000 10040 RETURN 30000 REM QUIT 30010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 30020 IFER<>63THENPRINT"[147]":END 30030 LOAD"HELLO CONNECT",8 50000 REM DATA ,<AUTHOR>,<REAL> 50010 DATA "[213]NDERWATER [211]CENE","[208]ATRICK [196]UGAN",UNDERWATER.SHP 50012 DATA "[205]ISSILE","[208]ATRICK [196]UGAN",MISSILE.SHP 50014 DATA "[205]ONKEY [198]ACE","[208]ATRICK [196]UGAN",MONKEY.SHP 50016 DATA "[208]LUM [194]OTTLE","[208]ATRICK [196]UGAN",BOTTLE.SHP 50020 DATA "[214]ISIT","[208]ATRICK [196]UGAN",VISIT.SHP 50060 REM TITLE SCREEN 50065 PRINT"[147]":POKE53281,1:POKE53280,1 50072 PRINT" [176]`````````````````[174]" 50082 PRINT" [221][204]OADSTAR [208]RESENTS[221][152] " 50092 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] " 50102 PRINT"  " 50112 PRINT 50122 PRINT" [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 50132 PRINT" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159] [221][152] " 50142 PRINT" [159][221] [221][196]UGAN'S [193]RT [196]EPOT[221][154] [159] [221][152] " 50152 PRINT" [159][221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159] [221][152] " 50162 PRINT" [159][221] [154] [159] [221][152] " 50172 PRINT" [159][221] [221][152][160]" 50182 PRINT" [159][221] [211]LIDE [211]HOW [208]RESENTER WRITTEN [221][152][160]" 50192 PRINT" [159][221] BY [193]LAN [199]ARDNER [221][152][160]" 50202 PRINT" [159][221] ([195]) 1987 [221][152][160]" 50204 PRINT" [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]" 50212 PRINT"  " 50222 PRINT 50232 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 50242 PRINT" [221] [193]LL PICTURES CREATED BY [221][152] " 50252 PRINT" [221] [208]ATRICK [196]UGAN [221][152] " 50272 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] " 50282 PRINT"  " 50292 : 50302 PRINT" [ pRESS ANY KEY TO START THE SHOW[160]]"; 50312 PRINT""; 50314 POKE198,0:WAIT198,1:POKE198,0 50316 POKE53281,5:RETURN 59990 : 60000 : 60001 POKE53281,1:POKE53280,5 60005 PRINT"[147][146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 60010 PRINT" [221][204]OADSTAR IS PROUD TO PRESENT:[221][152] " 60020 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] " 60030 PRINT"  " 60040 PRINT 60050 PRINT" [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 60060 PRINT" [221] [221][152] " 60070 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] " 60080 PRINT" [150][221] [154][221] [221] [150] [221][152] " 60090 PRINT" [150][221] [154][221] CREATED BY [221] [150] [221][152] [146][160]" 60100 PRINT" [150][221] [154][221] [221] [150] [221][152] [146] [160]"; 60110 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] " 60120 PRINT" [150][221]  [150] [221][152] " 60130 PRINT" [150][221] [221][152] " 60140 PRINT" [150][221] [221][152] " 60150 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] [146][160]" 60160 PRINT" [150][221] [154][221] [195]OMING SOON TO A COMPUTER[221] [150] [221][152] [146][160]" 60170 PRINT" [150][221] [154][221] NEAR YOU. [221] [150] [221][152] [146][160]" 60180 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] [146][160]" 60190 PRINT" [150][221]  [150] [221][152] [146][160]" 60200 PRINT" [150][221] [221][152] " 60210 PRINT" [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] " 60220 PRINT"  " 60230 PRINT 60240 PRINT" [ pRESS 'q' TO EXIT ]"; 60250 PRINT""; 60260 RETURN